home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / BANDMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-16  |  5KB  |  196 lines
  1. unit BandMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TBandDemo = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     FishDemo: TButton;
  14.     Master: TButton;
  15.     MasterDetail: TButton;
  16.     Detail: TButton;
  17.     Chain: TButton;
  18.     MasterDetailDetail: TButton;
  19.     Exit: TButton;
  20.     FishDemoAll: TButton;
  21.     MasterAll: TButton;
  22.     MasterDetailAll: TButton;
  23.     DetailAll: TButton;
  24.     ChainAll: TButton;
  25.     MasterDetailDetailAll: TButton;
  26.     Various: TButton;
  27.     Memo1: TMemo;
  28.     DetailDemo: TButton;
  29.     LabelDemo: TButton;
  30.     RichDemo: TButton;
  31.     OpenDialog1: TOpenDialog;
  32.     procedure MasterClick(Sender: TObject);
  33.     procedure MasterDetailClick(Sender: TObject);
  34.     procedure DetailClick(Sender: TObject);
  35.     procedure ChainClick(Sender: TObject);
  36.     procedure FishDemoClick(Sender: TObject);
  37.     procedure ExitClick(Sender: TObject);
  38.     procedure MasterDetailDetailClick(Sender: TObject);
  39.     procedure FishDemoAllClick(Sender: TObject);
  40.     procedure MasterAllClick(Sender: TObject);
  41.     procedure MasterDetailAllClick(Sender: TObject);
  42.     procedure DetailAllClick(Sender: TObject);
  43.     procedure ChainAllClick(Sender: TObject);
  44.     procedure MasterDetailDetailAllClick(Sender: TObject);
  45.     procedure VariousClick(Sender: TObject);
  46.     procedure DetailDemoClick(Sender: TObject);
  47.     procedure LabelDemoClick(Sender: TObject);
  48.     procedure RichDemoClick(Sender: TObject);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   BandDemo: TBandDemo;
  57.  
  58. implementation
  59.  
  60. uses
  61.     demo01, demo02, demo03, demo04, demo05, demo06, demo07, demo08, demo09
  62.    {$IFDEF WIN32} ,Demo10 {$ENDIF};
  63.  
  64. {$R *.DFM}
  65. procedure TBandDemo.FishDemoClick(Sender: TObject);
  66. begin
  67.    FBDemo01 := TFBDemo01.Create(Application);
  68.     FBDemo01.CBReport1.ExecuteEntity(1);
  69.    FBDemo01.Free;
  70. end;
  71.  
  72. procedure TBandDemo.FishDemoAllClick(Sender: TObject);
  73. begin
  74.    FBDemo01 := TFBDemo01.Create(Application);
  75.     FBDemo01.CBReport1.Execute;
  76.    FBDemo01.Free;
  77. end;
  78.  
  79. procedure TBandDemo.MasterClick(Sender: TObject);
  80. begin
  81.    FBDemo02 := TFBDemo02.Create(Application);
  82.     FBDemo02.CBReport1.ExecuteEntity(1);
  83.    FBDemo02.Free;
  84. end;
  85.  
  86. procedure TBandDemo.MasterAllClick(Sender: TObject);
  87. begin
  88.    FBDemo02 := TFBDemo02.Create(Application);
  89.     FBDemo02.CBReport1.Execute;
  90.    FBDemo02.Free;
  91. end;
  92.  
  93.  
  94. procedure TBandDemo.MasterDetailClick(Sender: TObject);
  95. begin
  96.    FBDemo03 := TFBDemo03.Create(Application);
  97.     FBDemo03.CBReport1.ExecuteEntity(1);
  98.    FBDemo03.Free;
  99. end;
  100.  
  101. procedure TBandDemo.MasterDetailAllClick(Sender: TObject);
  102. begin
  103.    FBDemo03 := TFBDemo03.Create(Application);
  104.     FBDemo03.CBReport1.Execute;
  105.    FBDemo03.Free;
  106. end;
  107.  
  108. procedure TBandDemo.DetailClick(Sender: TObject);
  109. begin
  110.    FBDemo04 := TFBDemo04.Create(Application);
  111.     FBDemo04.CBReport1.ExecuteEntity(1);
  112.    FBDemo04.Free;
  113. end;
  114.  
  115. procedure TBandDemo.DetailAllClick(Sender: TObject);
  116. begin
  117.    FBDemo04 := TFBDemo04.Create(Application);
  118.     FBDemo04.CBReport1.Execute;
  119.    FBDemo04.Free;
  120. end;
  121.  
  122. procedure TBandDemo.ChainClick(Sender: TObject);
  123. begin
  124.    FBDemo05 := TFBDemo05.Create(Application);
  125.     FBDemo05.CBReport1.ExecuteEntity(1);
  126.    FBDemo05.Free;
  127. end;
  128.  
  129. procedure TBandDemo.ChainAllClick(Sender: TObject);
  130. begin
  131.    FBDemo05 := TFBDemo05.Create(Application);
  132.     FBDemo05.CBReport1.Execute;
  133.    FBDemo05.Free;
  134. end;
  135.  
  136. procedure TBandDemo.MasterDetailDetailClick(Sender: TObject);
  137. begin
  138.    FBDemo06 := TFBDemo06.Create(Application);
  139.     FBDemo06.CBReport1.ExecuteEntity(1);
  140.    FBDemo06.Free;
  141. end;
  142.  
  143. procedure TBandDemo.MasterDetailDetailAllClick(Sender: TObject);
  144. begin
  145.    FBDemo06 := TFBDemo06.Create(Application);
  146.     FBDemo06.CBReport1.Execute;
  147.    FBDemo06.Free;
  148. end;
  149.  
  150. procedure TBandDemo.VariousClick(Sender: TObject);
  151. begin
  152.    FBDemo07 := TFBDemo07.Create(Application);
  153.     FBDemo07.CBReport1.Execute;
  154.    FBDemo07.Free;
  155. end;
  156.  
  157. procedure TBandDemo.DetailDemoClick(Sender: TObject);
  158. begin
  159.    FBDemo08 := TFBDemo08.Create(Application);
  160.     FBDemo08.CBReport1.Execute;
  161.    FBDemo08.Free;
  162. end;
  163.  
  164. procedure TBandDemo.LabelDemoClick(Sender: TObject);
  165. begin
  166.    FBDemo09 := TFBDemo09.Create(Application);
  167.     FBDemo09.CBReport1.Execute;
  168.    FBDemo09.Free;
  169. end;
  170.  
  171. procedure TBandDemo.RichDemoClick(Sender: TObject);
  172. begin
  173.     {$IFDEF WIN32}
  174.    FBDemo10 := TFBDemo10.Create(Application);
  175.    if OpenDialog1.Execute then
  176.        FBDemo10.RichEditE1.Lines.LoadFromFile(OpenDialog1.FileName);
  177.    FBDemo10.RichEditE1.ResetRichEdit;
  178.     FBDemo10.CBReport1.Execute;
  179.    FBDemo10.Free;
  180.    {$ELSE}
  181.     MessageDlg('Please Note: The TRichEdit and ChartFX '+#13+
  182.                     'is ONLY supported under Delphi 2', mtInformation,
  183.       [mbOk], 0);
  184.    {$ENDIF}
  185. end;
  186.  
  187.  
  188.  
  189. procedure TBandDemo.ExitClick(Sender: TObject);
  190. begin
  191.     Close;
  192. end;
  193.  
  194.  
  195. end.
  196.